home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cocktail / lalr.lha / lalr / lib / Scanner.c < prev    next >
Text File  |  1992-08-18  |  682b  |  27 lines
  1. /* $Id: Scanner.c,v 2.6 1992/08/07 15:28:42 grosch rel $ */
  2.  
  3. $@ # include "$.h"
  4. # include <stdio.h>
  5.  
  6. $@ $_tScanAttribute    $_Attribute    = {{ 1, 0 }};
  7.  
  8. $@ int $_GetToken ()
  9.    {
  10.       char ch;
  11.  
  12.       do {
  13.      ch = getchar ();
  14. $@      if (ch == '\n') { $_Attribute.Position.Column = 0; $_Attribute.Position.Line ++; }
  15. $@      else $_Attribute.Position.Column ++;
  16.       } while (ch == ' ' || ch == '\t' || ch == '\n');
  17.       return ch == -1 ? 0 : ch;
  18.    }
  19.  
  20. $@ void $_ErrorAttribute
  21. # if defined __STDC__ | defined __cplusplus
  22. $@    (short yyToken, $_tScanAttribute * yyRepairAttribute)
  23. # else
  24. $@    (yyToken, yyRepairAttribute) short yyToken; $_tScanAttribute * yyRepairAttribute;
  25. # endif
  26.    { }
  27.